home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / rexx / missMSDOS.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-01-31  |  1.9 KB  |  96 lines
  1. /*
  2.  * missMSDOS.rexx
  3.  *
  4.  * USAGE: missMSDOS.rexx
  5.  *
  6.  * missMSDOS.rexx
  7.  *
  8.  * $(C): (1994, Rocco Coluccelli, Bologna)
  9.  * $VER: missMSDOS.rexx 1.00 (08.Dec.1994)
  10.  */
  11.  
  12. ADDRESS COMMAND
  13.  
  14. MAXLINE = 80
  15.  
  16. s1 = "Well, before starting, let me introduce you to my assistant,"
  17. s2 = "Miss M.S.Dos., Mickie Stone Dossmasher."
  18. s3 = "Okay Miss Dossmasher, say hello to our listeners."
  19. CALL Print(s1,s2,)
  20. ''SAY '-m -s130 -p80' s1 s2
  21. CALL Print(s3,)
  22. ''SAY '-m -s160 -p120' s3
  23.  
  24. s1 = "Hello, there!"
  25. s2 = "My name is Mickie, but you can also call me Mickie!"
  26. s3 = "Well, I was born"
  27. s4 = "Enough! Miss Dossmasher, would you please be so kind as TO"
  28. s5 = "SHUT UP!"
  29. CALL Print(s1 s2 s3 || '...',)
  30. ''SAY '-f -s130 -p290' s1 s2 s3
  31. CALL Print(s4 s5,)
  32. ''SAY '-m -s140 -p85' s4
  33. ''SAY '-m -s80 -p65' s5
  34.  
  35. WAIT 2
  36.  
  37. s1 = "And now, we start."
  38. s2 = "Miss Dossmasher, please, bring up our display."
  39. CALL Print(s1 s2,)
  40. ''SAY '-m -s140 -p110' s1 s2
  41.  
  42. RUN '>NIL: Multiview iff/piano PORTNAME OLE_DISPLAY'
  43.  
  44. s1 = "Yes boss!"
  45. s2 = "Now, show us the first MODEL that I'm going to explain."
  46. CALL Print(s1,)
  47. ''SAY '-f -s180 -p280' s1
  48. CALL Print(s2)
  49. ''SAY '-m -s140 -p90' s2
  50.  
  51. ADDRESS OLE_DISPLAY "OPEN NAME iff/topmodel"
  52. s1 = "What the HELL is that?"
  53. s2 = "Where is your mind?"
  54. s3 = "I wonder if you ever got some."
  55. CALL Print(s1 s2,s3)
  56. ''SAY '-m -s140 -p120' s1 s2
  57. ''SAY '-m -s160 -p90' s3
  58.  
  59. s1 = "Excuse me boss! I made a mistake!"
  60. s2 = "Your mother has made a bigger one!"
  61. CALL Print(s1)
  62. ''SAY '-f -s160 -p300' s1
  63. CALL Print(s2,)
  64. ''SAY '-m -s150 -p90' s2
  65. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.vuota"
  66.  
  67. EXIT 0
  68.  
  69.  
  70. /*
  71.  *    procedure to split text onto lines of MAXLINE characters length
  72.  */
  73. Print: PROCEDURE EXPOSE MAXLINE
  74.  
  75.     DO i = 1 TO ARG()
  76.  
  77.         line = ARG(i)
  78.         DO FOREVER
  79.  
  80.             IF LENGTH(line) <= MAXLINE THEN DO
  81.                 ECHO line
  82.                 LEAVE
  83.                 END
  84.  
  85.             pos = MAX(LASTPOS(' ',line,MAXLINE),POS(' ',line))
  86.             IF pos = 0 THEN DO
  87.                 ECHO line
  88.                 LEAVE
  89.                 END
  90.  
  91.             ECHO LEFT(line,pos); line = SUBSTR(line,pos + 1)
  92.         END
  93.     END
  94.  
  95. RETURN
  96.